home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / h / hypertextdatav40.12cr.lha / HTDS / ARexx / http.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-10-27  |  1.1 KB  |  52 lines
  1. /*
  2. ** $PROJECT: HyperText-DataType-System
  3. **
  4. ** $VER: http.rexx 40.2 (27.10.96)
  5. **
  6. ** $AUTHOR: Stefan Ruppert , Windthorststrasse 5 , 65439 Floersheim , GERMANY
  7. **
  8. ** $COPYRIGHT: (C) Copyright 1996 by Stefan Ruppert, All Rights Reserved!
  9. **
  10. ** $EMAIL: Stefan.Ruppert@informatik.fh-wiesbaden.de
  11. **
  12. ** $HISTORY:
  13. **
  14. ** 27.10.96 : 040.002 : use rexxdossupport.library
  15. ** 26.10.96 : 040.001 : initial
  16. **
  17. */
  18.  
  19. Options Results
  20.  
  21. Parse Arg args
  22.  
  23. /* --------------------------- needed libraries --------------------------- */
  24.  
  25. Call AddLib('rexxsupport.library',0,-30,0)
  26. Call AddLib('rexxdossupport.library',0,-30,0)
  27.  
  28. If ReadArgs(args,'URL/A','HTTP.') Then Do
  29.  
  30.    /* ------------------------ customize section -------------------------- */
  31.  
  32.    /* AWeb */
  33.    browser    = 'System:Communication/AWeb/Aweb'
  34.    arexxport  = 'AWEB.1'
  35.    loadurlcmd = 'OPEN URL="' || http.url || '"'
  36.  
  37.    /* ---------------------- end customize section ------------------------ */
  38.  
  39.    If ~Show('ports',arexxport) Then Do
  40.       Address Command
  41.  
  42.       'Run <>NIL: ' || browser
  43.  
  44.       'WaitForPort ' || arexxport
  45.    End
  46.  
  47.    Address arexxport
  48.  
  49.    loadurlcmd
  50. End
  51.  
  52.